home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / EventTrack.cpt / Event Tracker / card_2976.txt < prev    next >
Text File  |  1990-03-13  |  3KB  |  97 lines
  1. -- card: 2976 from stack: in
  2. -- bmap block id: 2280
  3. -- flags: 0000
  4. -- background id: 2787
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=17 top=67 right=233 bottom=234
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Text
  20. ----- HyperTalk script -----
  21. on mouseEnter
  22.   global StartingTicksVariable, FldOneVariable
  23.   put the ticks into StartingTicksVariable
  24.   put cd fld Text into FldOneVariable
  25. end mouseEnter
  26.  
  27. on MouseLeave
  28.   global StartingTicksVariable, FldOneVariable
  29.   put the ticks into EndingTicksVariable
  30.   put the short name of me & ": " after bg fld Events
  31.   --identify field
  32.   put EndingTicksVariable - StartingTicksVariable after bg fld Events
  33.   --Log the number of ticks the mouse was in the field
  34.   If cd fld Text ‚↠FldOneVariable then
  35.     --If the field was changed, log the new contents
  36.     put " " & cd fld Text & RETURN after bg fld Events
  37.   else
  38.     put RETURN after bg fld Events
  39.   end if
  40. end mouseLeave
  41.  
  42.  
  43.  
  44. -- part 2 (button)
  45. -- low flags: 00
  46. -- high flags: 8003
  47. -- rect: left=77 top=236 right=258 bottom=177
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Button A
  56. ----- HyperTalk script -----
  57. on mouseEnter
  58.   global StartingTicksVariable
  59.   put the ticks into StartingTicksVariable
  60. end mouseEnter
  61.  
  62. on MouseDown
  63.   global clickVariable
  64.   put " click " after clickVariable
  65.   --HyperCard logs rapid clicks are logged as single clicks
  66. end MouseDown
  67.  
  68. on MouseLeave
  69.   global StartingTicksVariable, FldOneVariable, clickVariable
  70.   put the ticks into EndingTicksVariable
  71.   put the short name of me & ": " after bg fld Events
  72.   --Identify the button
  73.   put EndingTicksVariable - StartingTicksVariable after bg fld Events
  74.   --Log the time the mouse was within the button
  75.   if clickVariable is not empty then
  76.     put clickVariable & RETURN after bg fld Events
  77.     --If the user clicked, log the clicks
  78.     put empty into clickVariable
  79.     --reset click counter
  80.   else
  81.     put RETURN after bg fld Events
  82.   end if
  83. end mouseLeave
  84.  
  85.  
  86. -- part contents for card part 1
  87. ----- text -----
  88. This stack monitors many HyperCard events and logs them in the field at right.  When this text is changed, the new text is also logged.  The normal text selection motion for most people takes the mouse OUTSIDE of this text box.  This causes the event to be posted and unselects the text.
  89.  
  90. -- part contents for background part 1
  91. ----- text -----
  92. Button A: 1168
  93. Text: 23
  94. Menu Choice: Compact Stack
  95. Text: 31
  96. Menu Choice: Quit HyperCard
  97.